(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     42165,       1420]
NotebookOptionsPosition[     41645,       1398]
NotebookOutlinePosition[     41988,       1413]
CellTagsIndexPosition[     41945,       1410]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"reallst", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", "124845.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "2", ",", "143933.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "3", ",", "1691.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "4", ",", "92214.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "5", ",", "119780.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "6", ",", "124754.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "7", ",", "92279.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0", ",", "562382.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1", ",", "0.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "2", ",", "331795.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "3", ",", "60278.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "4", ",", "185110.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "5", ",", "83593.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "6", ",", "109573.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "7", ",", "83880.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "0", ",", "372121.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "1", ",", "15931.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "2", ",", "0.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "3", ",", "36013.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "4", ",", "103156.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "5", ",", "3547.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "6", ",", "4867.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "7", ",", "1913.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "0", ",", "639358.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "1", ",", "606500.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "2", ",", "687192.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "3", ",", "0.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "4", ",", "651721.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "5", ",", "649031.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "6", ",", "652589.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "7", ",", "642573.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "0", ",", "505361.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "1", ",", "119016.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "2", ",", "382332.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "3", ",", "43940.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "4", ",", "0.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "5", ",", "37541.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "6", ",", "56178.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "7", ",", "88.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "0", ",", "607137.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "1", ",", "83171.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "2", ",", "367540.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "3", ",", "43948.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "4", ",", "104660.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "5", ",", "0.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "6", ",", "34784.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "7", ",", "2133.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6", ",", "0", ",", "597786.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6", ",", "1", ",", "83431.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6", ",", "2", ",", "333494.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6", ",", "3", ",", "41720.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6", ",", "4", ",", "101948.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6", ",", "5", ",", "1832.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6", ",", "6", ",", "0.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6", ",", "7", ",", "257.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7", ",", "0", ",", "613006.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7", ",", "1", ",", "211214.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7", ",", "2", ",", "477853.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7", ",", "3", ",", "43893.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7", ",", "4", ",", "110537.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7", ",", "5", ",", "130577.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7", ",", "6", ",", "152044.000000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7", ",", "7", ",", "0.000000"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"theorylst", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "2", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "3", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "4", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "5", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "6", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "7", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "3", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "4", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "5", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "6", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "7", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "3", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "4", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "5", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "6", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "7", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "0", ",", "7"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "1", ",", "7"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "2", ",", "8"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "3", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "4", ",", "7"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "5", ",", "7"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "6", ",", "7"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "7", ",", "7"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "0", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "2", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "3", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "4", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "5", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "6", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "7", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "0", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "2", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "3", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "4", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "5", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "6", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "7", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6", ",", "0", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6", ",", "1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6", ",", "2", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6", ",", "3", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6", ",", "4", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6", ",", "5", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6", ",", "6", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6", ",", "7", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7", ",", "0", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7", ",", "1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7", ",", "2", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7", ",", "3", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7", ",", "4", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7", ",", "5", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7", ",", "6", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7", ",", "7", ",", "0"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p", "=", 
   RowBox[{
    RowBox[{"ListPlot3D", "[", 
     RowBox[{"#", ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"\"\<large\>\"", ",", "\"\<small\>\"", ",", "\"\<ratio\>\""}],
         "}"}]}], ",", 
      RowBox[{"InterpolationOrder", "\[Rule]", "0"}], ",", 
      RowBox[{"Mesh", "\[Rule]", "None"}], ",", 
      RowBox[{"ColorFunction", "\[Rule]", 
       RowBox[{"Function", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"z", ">", "0.99"}], ",", 
           RowBox[{"Hue", "[", 
            RowBox[{"1", "/", "3"}], "]"}], ",", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{"z", "<", "0.01"}], ",", 
             RowBox[{"Hue", "[", "1", "]"}], ",", 
             RowBox[{"Hue", "[", ".5", "]"}]}], "]"}]}], "]"}]}], "]"}]}], 
      ",", " ", "\[IndentingNewLine]", 
      RowBox[{"ViewPoint", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "Infinity"}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"ColorFunctionScaling", "\[Rule]", "True"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"Automatic", ",", "Automatic"}], "}"}]}]}], "]"}], "&"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"p", "[", "reallst", "]"}], "\[IndentingNewLine]", 
 RowBox[{"p", "[", "theorylst", "]"}]}], "Input",
 CellChangeTimes->{{3.5327477605966873`*^9, 3.532747799519539*^9}, {
   3.532747833610359*^9, 3.5327478411191483`*^9}, {3.532747877472664*^9, 
   3.532747913157234*^9}, {3.532747984429695*^9, 3.5327480139199295`*^9}, {
   3.532748083637703*^9, 3.5327480967373123`*^9}, {3.532748174646492*^9, 
   3.532748187724617*^9}, {3.532748219858406*^9, 3.532748225026375*^9}, {
   3.53274837419825*^9, 3.5327483775312576`*^9}, {3.5327484136191483`*^9, 
   3.5327484333750076`*^9}, {3.5327485364267654`*^9, 3.532748568287117*^9}, {
   3.5327486389423904`*^9, 3.5327486838574295`*^9}, {3.5327487659961014`*^9, 
   3.5327487710136795`*^9}, {3.532749181318367*^9, 3.532749181874031*^9}, {
   3.532751907309578*^9, 3.5327519549316483`*^9}, {3.5327520071904373`*^9, 
   3.5327520072832108`*^9}, {3.532772759463875*^9, 3.5327727609775467`*^9}, {
   3.5327734060586014`*^9, 3.5327734406806717`*^9}, 3.532773492224617*^9, {
   3.5327739789306717`*^9, 3.5327739868056717`*^9}, {3.5327765043623123`*^9, 
   3.5327765083623123`*^9}}],

Cell[BoxData[
 Graphics3DBox[GraphicsComplex3DBox[CompressedData["
1:eJyd2T1oFEEUB/BNsgjCImEJIywXMdFGGy2sk41YWIiIqEUKDUHBQs4USZPq
iEUqjQqCSISrtQmIqVNaacqUGxNBFMFCZBPiRzE7Gd5/9r1d3jQHv537v+Fu
3n3sjM0+vH5vMIqi2YEoGorcKCbpY71vLv7NqZeMy/O/PhuYoh7n9S7Pjx68
gvyEcXn+zKPf4Cnj8vx84g+4YVyef3IBX7eMcXn+3DKuE70k79fqmTF4nds6
zfGjnKSPbhRK5/LlulfyEVin3Q/eC6Vz+XLdje6PnHoCXiidy5frrr08AutM
wQulc/ly3af3f8E6DXihdC5frnttYx88Ay+UzuWj05zeIq6zrcck7+66qe3f
Zqc5vdFPkF+C075o71y+XNePGK67QfuivXP5ct3+i21YRwJO+6K9c/ly3fzc
HngKTvuivXP5ct1o/S24Aad90d65/Ia6Q+/AM3DaX+2dy0eHnN3X9etp9Or3
UNUvB0unavu32WnO5aVx8BI8VjqXL9ddK0+D2zzvsdK5fLmuH84T8FjpXL5c
9/kOvo8peKx0Ll+u++QjugGPlc7ly3Wnv6Fn4LHSuXy5brZan++dm199rlX9
cmnrRG0fNTvN6R1z/1Ocl+CJ0rl8ue7Pm8dhnfZ18p4oncuX6/bmv8A6E/BE
6Vy+XNePFK67kSidy5fr9m98hlwDniidy5fr5t3v4Bl4onQuX64bRbdq871z
86vfDVW/XFwer+3fZqc556+6/wvOS/BU6Vy+XHeza2Cddv97T5XO5ct1ewuu
75wn4KnSuXy5bv54DzwFT5XO5ct1/TBw3Y1U6Vx+Q92DAnIz8FTpXH5D3Tf9
+vxD5+a7/rf9cmGivn+bnebM3XZ957wEN0rn8uW6W9MjsE67/70bpXP5ct3o
zi6sMwE3Sufy5bobOyV4Cm6UzuXLdaP+KrgBN0rn8hvqHo4MrrthlM7lN9Qd
noN56Nx82i+d9/X9G3rVjx+OtvSCcbsP58+OtnSbH3p1/6rrvr+aPGa8uk97
sN/SE8bt+zC8/a+lp4zbx5mVwal2bsT54cBzDTfw3I3ODx3P12hO6HiORnNC
x/MymhM6novRnNDx/IvmhI7nXJ3qEfuFut//zrFfqPt97hz7grrfz85x/1P3
+9Y57nPqfn86x/1M3e9D57hvqfvB7Uvn9nnh+aMd4bkhOs0JzzU4tyM8p0Cn
OeF9VM7tCO+Lcm5zwvs56DQnvA/DuXt/8P8jOs0J//dxXuUEv1fRaU74O5Pz
Kif4fkSnOeH3XYdcbx64P+nzw88Hf/0/7rKJfg==
   "], {{
     {EdgeForm[None], 
      GraphicsGroup3DBox[{
        Polygon3DBox[{{323, 1, 295, 351}, {350, 294, 322, 354}}], 
        Polygon3DBox[CompressedData["
1:eJwt0ukyW3EAxuGjpdSeWBKxFTWjaqt9DTFqV0tLKWbwhWK4FuvNWG/GehWe
M+PDM3l/M+efnJykZud46ehDEAQJMlhIC4JTr2ecMK+nGbFTjDKlV3m0n3jg
r17h1r7jnmX9j2f7hVfWdIo6vlIfvjfbdBGliE1+se/MAYfM6QmG7CTDTOoZ
du09/jOrNygkQgHrbNFJsWtKGLPHKbVjxPmplzi3L7hkUf/h2r7hit/hfVBJ
FdUMMkCCciropyP8Ts5EiNKue8L7oCT8fLoZ5gs11JKkmWxnsvhMk24lz84h
lxbdR4w4ZfTyncz33/UTjfpH+FzsfApo099It8P/wUca9BvNjyUu
         "]], Polygon3DBox[CompressedData["
1:eJwl0kdYyAEAxuF/Ids9O1uyR9bNzEohe2XclOzInmXe7JW9sxI3W4SQvccN
Ze/1Po/De/gdvtsXkZgcnxQaBEEtwljIIhazhHQyOM0ZznKO81wglenMII2Z
zGIik5jMFKYyjdnMYS7zmM8CjpPNCXI4ySkucolcLnOFPG5RwG3ucJd7XOUa
18nnBjdZzRrWso71bGAcSSQznhQmsJFNbGYLW8lkG9vZwU52sZs97GUf+znA
QQ6RxWGOcJRjLGUZy1nBSlbRgCga0ojGNOEpz3jOC17yitrUoS71qE8k7/nA
Rz7xmS8UCwmC4pQgjJKUojRlKEs5ylOB3zZ/+EugQwjlq/zGd37wk1+85g1v
KaSId9znAQ95xGOeEEtv4oinD32JoRvd6UFPelGN6kRQg5rB/+9G05o2tKUd
7WlKM5rTgpa0ogMd6URnutCVkSQyitGMYSz9SKA/AxjIIAYzhKEMYzgjCKci
lahMFaryDy+Vb2I=
         "]]}]}, {}, {}, {}, {}}, 
    {GrayLevel[0], Line3DBox[{295, 1, 323, 351, 295},
      VertexColors->None], Line3DBox[{3, 2, 4, 297, 296, 3},
      VertexColors->None], Line3DBox[{6, 5, 7, 299, 298, 6},
      VertexColors->None], Line3DBox[{9, 8, 10, 301, 300, 9},
      VertexColors->None], Line3DBox[{12, 11, 13, 303, 302, 12},
      VertexColors->None], Line3DBox[{15, 14, 16, 305, 304, 15},
      VertexColors->None], Line3DBox[{18, 17, 19, 307, 306, 18},
      VertexColors->None], Line3DBox[{21, 20, 308, 352, 324, 21},
      VertexColors->None], Line3DBox[{23, 22, 326, 325, 24, 23},
      VertexColors->None], Line3DBox[{26, 25, 30, 29, 28, 27, 26},
      VertexColors->None], Line3DBox[{32, 31, 36, 35, 34, 33, 32},
      VertexColors->None], Line3DBox[{38, 37, 42, 41, 40, 39, 38},
      VertexColors->None], Line3DBox[{44, 43, 48, 47, 46, 45, 44},
      VertexColors->None], Line3DBox[{50, 49, 54, 53, 52, 51, 50},
      VertexColors->None], Line3DBox[{56, 55, 60, 59, 58, 57, 56},
      VertexColors->None], Line3DBox[{62, 61, 327, 328, 63, 62},
      VertexColors->None], Line3DBox[{65, 64, 330, 329, 66, 65},
      VertexColors->None], Line3DBox[{68, 67, 72, 71, 70, 69, 68},
      VertexColors->None], Line3DBox[{74, 73, 78, 77, 76, 75, 74},
      VertexColors->None], Line3DBox[{80, 79, 84, 83, 82, 81, 80},
      VertexColors->None], Line3DBox[{86, 85, 90, 89, 88, 87, 86},
      VertexColors->None], Line3DBox[{92, 91, 96, 95, 94, 93, 92},
      VertexColors->None], Line3DBox[{98, 97, 102, 101, 100, 99, 98},
      VertexColors->None], Line3DBox[{104, 103, 331, 332, 105, 104},
      VertexColors->None], Line3DBox[{107, 106, 334, 333, 108, 107},
      VertexColors->None], Line3DBox[{110, 109, 114, 113, 112, 111, 110},
      VertexColors->None], Line3DBox[{116, 115, 120, 119, 118, 117, 116},
      VertexColors->None], Line3DBox[{122, 121, 126, 125, 124, 123, 122},
      VertexColors->None], Line3DBox[{128, 127, 132, 131, 130, 129, 128},
      VertexColors->None], Line3DBox[{134, 133, 138, 137, 136, 135, 134},
      VertexColors->None], Line3DBox[{140, 139, 144, 143, 142, 141, 140},
      VertexColors->None], Line3DBox[{335, 145, 147, 146, 336, 335},
      VertexColors->None], Line3DBox[{149, 148, 338, 337, 150, 149},
      VertexColors->None], Line3DBox[{152, 151, 156, 155, 154, 153, 152},
      VertexColors->None], Line3DBox[{158, 157, 162, 161, 160, 159, 158},
      VertexColors->None], Line3DBox[{164, 163, 168, 167, 166, 165, 164},
      VertexColors->None], Line3DBox[{170, 169, 174, 173, 172, 171, 170},
      VertexColors->None], Line3DBox[{176, 175, 180, 179, 178, 177, 176},
      VertexColors->None], Line3DBox[{182, 181, 186, 185, 184, 183, 182},
      VertexColors->None], Line3DBox[{339, 187, 189, 188, 340, 339},
      VertexColors->None], Line3DBox[{191, 190, 342, 341, 192, 191},
      VertexColors->None], Line3DBox[{194, 193, 198, 197, 196, 195, 194},
      VertexColors->None], Line3DBox[{200, 199, 204, 203, 202, 201, 200},
      VertexColors->None], Line3DBox[{206, 205, 210, 209, 208, 207, 206},
      VertexColors->None], Line3DBox[{212, 211, 216, 215, 214, 213, 212},
      VertexColors->None], Line3DBox[{218, 217, 222, 221, 220, 219, 218},
      VertexColors->None], Line3DBox[{224, 223, 228, 227, 226, 225, 224},
      VertexColors->None], Line3DBox[{343, 229, 231, 230, 344, 343},
      VertexColors->None], Line3DBox[{233, 232, 346, 345, 234, 233},
      VertexColors->None], Line3DBox[{236, 235, 240, 239, 238, 237, 236},
      VertexColors->None], Line3DBox[{242, 241, 246, 245, 244, 243, 242},
      VertexColors->None], Line3DBox[{248, 247, 252, 251, 250, 249, 248},
      VertexColors->None], Line3DBox[{254, 253, 258, 257, 256, 255, 254},
      VertexColors->None], Line3DBox[{260, 259, 264, 263, 262, 261, 260},
      VertexColors->None], Line3DBox[{266, 265, 270, 269, 268, 267, 266},
      VertexColors->None], Line3DBox[{347, 271, 273, 272, 348, 347},
      VertexColors->None], Line3DBox[{275, 274, 309, 353, 349, 275},
      VertexColors->None], Line3DBox[{277, 276, 311, 310, 278, 277},
      VertexColors->None], Line3DBox[{280, 279, 313, 312, 281, 280},
      VertexColors->None], Line3DBox[{283, 282, 315, 314, 284, 283},
      VertexColors->None], Line3DBox[{286, 285, 317, 316, 287, 286},
      VertexColors->None], Line3DBox[{289, 288, 319, 318, 290, 289},
      VertexColors->None], Line3DBox[{292, 291, 321, 320, 293, 292},
      VertexColors->None], Line3DBox[{322, 294, 350, 354, 322},
      VertexColors->None]}},
   VertexColors->{
     Hue[1], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1]},
   VertexNormals->CompressedData["
1:eJztyEENwCAABLBjKEEJHiaBhDfWkYACDJD22TbWP78koyQ1N7t777333nvv
vffee++9995777333r/6B11jpR8=
    "]],
  AutomaticImageSize->True,
  Axes->True,
  AxesLabel->{
    FormBox["\"large\"", TraditionalForm], 
    FormBox["\"small\"", TraditionalForm], 
    FormBox["\"ratio\"", TraditionalForm]},
  BoxRatios->{1, 1, 0.4},
  ImageSize->{378.08414066745024`, 366.6692467872484},
  Lighting->"Neutral",
  Method->{"RotationControl" -> "Globe"},
  PlotRange->{{0., 7.}, {0., 7.}, {0., 687192.}},
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02], 
    Scaled[0.02]},
  ViewAngle->0.6753930535875365,
  ViewCenter->{{0.5, 0.5, 0.5}, {0.5054694235776507, 0.4835917292670475}},
  ViewPoint->{-0.0017617995119183357`, -0.11301498637676059`, 
   1.9968035729426654`},
  ViewVertical->{0., 0., 1.}]], "Output",
 CellChangeTimes->{{3.5327485503955154`*^9, 3.5327485735293045`*^9}, {
   3.5327486317519608`*^9, 3.532748684247078*^9}, {3.532748766523445*^9, 
   3.5327487716474686`*^9}, 3.532749182391609*^9, {3.532751926809578*^9, 
   3.5327519619355545`*^9}, 3.532752007860359*^9, 3.5327721007675858`*^9, 
   3.532772579347664*^9, 3.532772761769539*^9, 3.532773440927742*^9, 
   3.532773492749031*^9, 3.5327739872841873`*^9, 3.5327742120185623`*^9, 
   3.532776509918953*^9}],

Cell[BoxData[
 Graphics3DBox[GraphicsComplex3DBox[CompressedData["
1:eJytmTtu20AURZlP6UoIVAhuspJoDVmCgdTZspagUqUbXQc8g4P3XuhpBB6P
zh2RcynB/Pn29/efr9u2vX3Ztm9bxu3X/lX5dX/8ED6d//36n/Oxzhfh5Xz4
T8Kn88+fNP/ySfPJH8X16vLFs+35A3y5vk1u/ir3juPshzveP+Xmr3K5Ttu3
U27+bm74CXzZt01u/m5u+Bl82f9Nbv5ubvgFfOlXk5vf1k+Prcd49sFN9meX
00M/+2v3gYqbv5sbPu2FcfN3c3M87YVx83dzw6e9MG7+bm54txcVN383N/xo
72yd1ee1/nZ5znv68uO6n9/l5gl/iGfKj+aGx0f/lJu/ys14wd8zql4YN3+V
y3WewNmLLjd/Nzf8DM5edLn5u7nhF3D2q8vNfzTX5udz8vc5e1TxxbPtOb/v
2IsuN3+Ve8f9nb/P2YsuN3+Vy3Wyv3YfqLj5u7nh/L5jL7rc/N3cHPP7jr3o
cvN3c8Pte3PKzX801+bHW/a34IsHfvbX7gMVN3+Vm96Fs792H6i4+atcrnPa
C+Pm7+aGT3th3Pzd3PBpL4ybv5ub426/Km7+o7k2P8dlfwu+eOBnf+0+UHHz
V7npXTj7a/eBipu/yuU6p70wbv5ubvi0F8bN380Nn/bCuPm7ueHdflXc/Edz
bb71veLsY8Wtj+xRxa1H031l+3+6H8w/vY7mn17H7j7J4HXJ4HOxZT44n69V
Hp63xYPB51mLB5zPrSoPn1tVHs5/fb7y/Cx823P2hTz7PJy9IKeH57ni3IcV
536rOPehcduXN3xuPjf8GE/O88v5H55tP994Bp9TkJsn841n8P8wxuPh/3PI
l749j3ldyblO5maYh/uA3Dzk5lnua+DmIZ96qsH9ubwf/N/f3wEXhrgf
   "], {{
     {EdgeForm[None], 
      GraphicsGroup3DBox[{
        Polygon3DBox[{{350, 294, 322, 354}, {323, 1, 295, 351}}], 
        Polygon3DBox[CompressedData["
1:eJwt0EVOAwEUgOHBndJCaXGKJLi7l+CwobglwAbYwGWAy6CXQU/BNwmLL31/
3kwyfanLu8xtdhAESfI4zAqCT79ffHCgN1gwp1lkXadppY32cM8+r/ZvvLOn
V5k1zzHPmj5nhCodZyl8hgYaaWKGFartE//ft6w3uTJfc8OWPqWCKBFOmKeZ
FC3MkeHeOw88sq13eTa/8MSOPubb/MMvR3qSBElqmKCbgv+75dOlO8k1hzfN
oUNPU0sd9UzRS7F9IUX06H7KzCWU0qcvGCVGJWcMhv/XvpwIA3o43JujxBjS
4+GNiYd3ZIw/f9Yg9w==
         "]], Polygon3DBox[CompressedData["
1:eJwt0cdfDwAYBvCfIhHuEorsIipUbtlblKwi6ljnjP6NkhUNirJCuhkpMlJG
KZk3q+wVvgefz/s9Pc9zeqNyCtLygwKBwHhC6OIJ3fTwlF5mEEMsM5lFHJOY
zBSmMo3pzGYO8SSQyFwOcZgjlHGUY1RTw0lOUUsdd7jLPdq4TztXuMo1rtPE
DS5wkUs0cJlGyqmgkiqOc4LTnOEs5zhPPc20cJNbtHKbHeSwk13kksdowhlD
BGMZxzzmk0QyKSxggD/8JTDIEUQwgxlCCEMJ5Zvad37wk1/8pp+PfOIzX/jK
MJvhhDGCkYzijewt73jPB/r+/z+SKCYwkWgK2c0e9rKPIjp4wEMe8ZhOUlnI
IhazhKUsYzkrWMkqVrOFrWwji2y2k04GG8lkE5tZw1rWkcZ6NvCM57zgJa94
TTEl7KeUAxzkHz3kYHg=
         "]]}]}, {}, 
     {GrayLevel[0.82], EdgeForm[None], 
      GraphicsGroup3DBox[{
        Polygon3DBox[{{336, 146, 147, 145, 335}, {334, 106, 107, 108, 333}},
         VertexColors->None], 
        Polygon3DBox[{{133, 134, 135, 136, 137, 138}, {127, 128, 129, 130, 
         131, 132}, {115, 116, 117, 118, 119, 120}, {139, 140, 141, 142, 143, 
         144}, {109, 110, 111, 112, 113, 114}},
         VertexColors->None]}]}, {}, {}}, 
    {GrayLevel[0], Line3DBox[{295, 1, 323, 351, 295},
      VertexColors->None], Line3DBox[{3, 2, 4, 297, 296, 3},
      VertexColors->None], Line3DBox[{6, 5, 7, 299, 298, 6},
      VertexColors->None], Line3DBox[{9, 8, 10, 301, 300, 9},
      VertexColors->None], Line3DBox[{12, 11, 13, 303, 302, 12},
      VertexColors->None], Line3DBox[{15, 14, 16, 305, 304, 15},
      VertexColors->None], Line3DBox[{18, 17, 19, 307, 306, 18},
      VertexColors->None], Line3DBox[{21, 20, 308, 352, 324, 21},
      VertexColors->None], Line3DBox[{23, 22, 326, 325, 24, 23},
      VertexColors->None], Line3DBox[{26, 25, 30, 29, 28, 27, 26},
      VertexColors->None], Line3DBox[{32, 31, 36, 35, 34, 33, 32},
      VertexColors->None], Line3DBox[{38, 37, 42, 41, 40, 39, 38},
      VertexColors->None], Line3DBox[{44, 43, 48, 47, 46, 45, 44},
      VertexColors->None], Line3DBox[{50, 49, 54, 53, 52, 51, 50},
      VertexColors->None], Line3DBox[{56, 55, 60, 59, 58, 57, 56},
      VertexColors->None], Line3DBox[{62, 61, 327, 328, 63, 62},
      VertexColors->None], Line3DBox[{65, 64, 330, 329, 66, 65},
      VertexColors->None], Line3DBox[{68, 67, 72, 71, 70, 69, 68},
      VertexColors->None], Line3DBox[{74, 73, 78, 77, 76, 75, 74},
      VertexColors->None], Line3DBox[{80, 79, 84, 83, 82, 81, 80},
      VertexColors->None], Line3DBox[{86, 85, 90, 89, 88, 87, 86},
      VertexColors->None], Line3DBox[{92, 91, 96, 95, 94, 93, 92},
      VertexColors->None], Line3DBox[{98, 97, 102, 101, 100, 99, 98},
      VertexColors->None], Line3DBox[{104, 103, 331, 332, 105, 104},
      VertexColors->None], Line3DBox[{107, 106, 334, 333, 108, 107},
      VertexColors->None], Line3DBox[{110, 109, 114, 113, 112, 111, 110},
      VertexColors->None], Line3DBox[{116, 115, 120, 119, 118, 117, 116},
      VertexColors->None], Line3DBox[{122, 121, 126, 125, 124, 123, 122},
      VertexColors->None], Line3DBox[{128, 127, 132, 131, 130, 129, 128},
      VertexColors->None], Line3DBox[{134, 133, 138, 137, 136, 135, 134},
      VertexColors->None], Line3DBox[{140, 139, 144, 143, 142, 141, 140},
      VertexColors->None], Line3DBox[{335, 145, 147, 146, 336, 335},
      VertexColors->None], Line3DBox[{149, 148, 338, 337, 150, 149},
      VertexColors->None], Line3DBox[{152, 151, 156, 155, 154, 153, 152},
      VertexColors->None], Line3DBox[{158, 157, 162, 161, 160, 159, 158},
      VertexColors->None], Line3DBox[{164, 163, 168, 167, 166, 165, 164},
      VertexColors->None], Line3DBox[{170, 169, 174, 173, 172, 171, 170},
      VertexColors->None], Line3DBox[{176, 175, 180, 179, 178, 177, 176},
      VertexColors->None], Line3DBox[{182, 181, 186, 185, 184, 183, 182},
      VertexColors->None], Line3DBox[{339, 187, 189, 188, 340, 339},
      VertexColors->None], Line3DBox[{191, 190, 342, 341, 192, 191},
      VertexColors->None], Line3DBox[{194, 193, 198, 197, 196, 195, 194},
      VertexColors->None], Line3DBox[{200, 199, 204, 203, 202, 201, 200},
      VertexColors->None], Line3DBox[{206, 205, 210, 209, 208, 207, 206},
      VertexColors->None], Line3DBox[{212, 211, 216, 215, 214, 213, 212},
      VertexColors->None], Line3DBox[{218, 217, 222, 221, 220, 219, 218},
      VertexColors->None], Line3DBox[{224, 223, 228, 227, 226, 225, 224},
      VertexColors->None], Line3DBox[{343, 229, 231, 230, 344, 343},
      VertexColors->None], Line3DBox[{233, 232, 346, 345, 234, 233},
      VertexColors->None], Line3DBox[{236, 235, 240, 239, 238, 237, 236},
      VertexColors->None], Line3DBox[{242, 241, 246, 245, 244, 243, 242},
      VertexColors->None], Line3DBox[{248, 247, 252, 251, 250, 249, 248},
      VertexColors->None], Line3DBox[{254, 253, 258, 257, 256, 255, 254},
      VertexColors->None], Line3DBox[{260, 259, 264, 263, 262, 261, 260},
      VertexColors->None], Line3DBox[{266, 265, 270, 269, 268, 267, 266},
      VertexColors->None], Line3DBox[{347, 271, 273, 272, 348, 347},
      VertexColors->None], Line3DBox[{275, 274, 309, 353, 349, 275},
      VertexColors->None], Line3DBox[{277, 276, 311, 310, 278, 277},
      VertexColors->None], Line3DBox[{280, 279, 313, 312, 281, 280},
      VertexColors->None], Line3DBox[{283, 282, 315, 314, 284, 283},
      VertexColors->None], Line3DBox[{286, 285, 317, 316, 287, 286},
      VertexColors->None], Line3DBox[{289, 288, 319, 318, 290, 289},
      VertexColors->None], Line3DBox[{292, 291, 321, 320, 293, 292},
      VertexColors->None], Line3DBox[{322, 294, 350, 354, 322},
      VertexColors->None]}},
   VertexColors->{
     Hue[1], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[1], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[
      Rational[1, 3]], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[0.5], 
     Hue[1], 
     Hue[1], 
     Hue[0.5], 
     Hue[0.5], 
     Hue[1]},
   VertexNormals->CompressedData["
1:eJztyEENwCAABLBjKEEJHiaBhDfWkYACDJD22TbWP78koyQ1N7t777333nvv
vffee++9995777333r/6B11jpR8=
    "]],
  AutomaticImageSize->True,
  Axes->True,
  AxesLabel->{
    FormBox["\"large\"", TraditionalForm], 
    FormBox["\"small\"", TraditionalForm], 
    FormBox["\"ratio\"", TraditionalForm]},
  BoxRatios->{1, 1, 0.4},
  ImageSize->{372.65431955074735`, 357.7080829497682},
  Lighting->"Neutral",
  Method->{"RotationControl" -> "Globe"},
  PlotRange->{{0., 7.}, {0., 7.}, {0., 5.}},
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02], 
    Scaled[0.02]},
  ViewAngle->0.7212511648621807,
  ViewPoint->{0., 0., 2.},
  ViewVertical->{0., 1., 0.}]], "Output",
 CellChangeTimes->{{3.5327485503955154`*^9, 3.5327485735293045`*^9}, {
   3.5327486317519608`*^9, 3.532748684247078*^9}, {3.532748766523445*^9, 
   3.5327487716474686`*^9}, 3.532749182391609*^9, {3.532751926809578*^9, 
   3.5327519619355545`*^9}, 3.532752007860359*^9, 3.5327721007675858`*^9, 
   3.532772579347664*^9, 3.532772761769539*^9, 3.532773440927742*^9, 
   3.532773492749031*^9, 3.5327739872841873`*^9, 3.5327742120185623`*^9, 
   3.532776510043953*^9}]
}, Open  ]],

Cell[BoxData["\[AliasDelimiter]"], "Input",
 CellChangeTimes->{3.5327520368935623`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Hue", "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.5327480294980545`*^9, 3.5327480311425858`*^9}}],

Cell[BoxData[
 RowBox[{"Hue", "[", "1", "]"}]], "Output",
 CellChangeTimes->{3.5327480315312576`*^9}]
}, Open  ]]
},
WindowSize->{1264, 665},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (November 7, 2010)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 12796, 319, 432, "Input"],
Cell[13378, 343, 13894, 502, 382, "Output"],
Cell[27275, 847, 13997, 534, 373, "Output"]
}, Open  ]],
Cell[41287, 1384, 87, 1, 31, "Input"],
Cell[CellGroupData[{
Cell[41399, 1389, 126, 2, 31, "Input"],
Cell[41528, 1393, 101, 2, 30, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
